F" F«: O G F\ A M MING CHALLENGES USING 

ARRAYS 



X* Store your own tune data in the SOUNDARY program* READ 
it into an array and play different sequences of notes from 
the wain loop* 

2* Give the person using your program the option to edit his 
or her tune* one note at a time* Ask the person which note 
he or she wants to change and use that number as the index to 
your array* Then ask what the new note value will he* 
Change the array element accordingly and return to the menu* 



3* Write a program which INPUTs a series of numbers* and 
then lists those numbers which are larger than the average of 
all the numbers which were typed in* Use an array to store 
the values which the person types in* 



Use two different arrays* HUE(IOO) and LUM(IOQ)* to 
create a light show* Your program should contain a statement 
like the following onei 

SETCOLOR 0 *HUE(COUNT) *LUM(COUNT) 
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ARRAYS 

CAMPER COPY 



100 REM x ARRAY OF NUMBERS 

110 REM x 

120 MAXNUMS = 5 J REM MAXIMUM NUMBERS WHICH CAN BE INPUT 
130 DIM NUMS(MAXNUMS) 
140 REM x 

150 REM x FILL ARRAY i - 

160 REM x 

170 FOR COUNT = 1 TO MAXNUMS 
180 PRINT "TYPE IN A NUMBER" » 
190 INPUT VALUE 

20 0 NUMS( COUNT) = VALUE i REM STORE INPUT VALUE IN ARRAY 
210 NEXT COUNT 



220 REM x 

230 REM x PRINT NUMBERS IN ORDER 

240 REM x 
250 PRINT 

260 PRINT "YOU TYPED IN THE NUMBERS IN THE" 
270 PRINT "FOLLOWING ORDER X " 
28 0 PRINT 

290 FOR COUNT = 1 TO MAXNUMS 

300 PRINT NUMS(COUNT) i" "t I REM PRINT VALUE + SPACES 
310 NEXT COUNT 
320 PRINT' 



100 REM x SOUND WITH AN ARRAY 

110 REM x 

120 DIM TUNE(IOO) 

130 XNOTE = 0 

140 INPUT PITCH 

150 IF PITCH = -1 THEN NUMNOTES = XNOTE J GOTO 200 

160 XNOTE = XNOTE + 1 

170 TUNE(XNOTE) ■ PITCH 

180 GOTO 140 
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ARRAYS 

CAMPER COPY CONTINUED 



100 REM x SOUND ARRAY 

110 REM x 

120 REM x SOUNDARY 
130 REM x INITIALIZE VARIABLES AND ARRAY 
HO REM x 

150 DIM TUNE(IOO) ; 
160 XNOTE=0 

165 REM x ASSIGN LABELS TO LINE NUMBERS 

170 MENU=300 

180 VALUES=50O 

190 PLAY=700 

200 NUMBERS=?00 

210 REM x 

220 REM x MAIN LOOP 

230 REM x 

210 GOSUB MENU 

250 INPUT RESPONSE 

260 IF RESPONSES THEN GOSUB VALUES 
270 IF RESPONSES THEN GOSUB PLAY 
280 IF RESP0NSE=3 THEN GOSUB NUMBERS 
^Z90 GOTO 210: REM REPEAT MAIN LOOP 
JO REM x 
310 REM x MENU 
320 REM x 
330 PRINT 

310 PRINT "WOULD YOU LIKE TO." 
350 PRINT " 1. TYPE IN A TUNE ♦ " 

360 PRINT " 2* PLAY YOUR TUNE." 

370 PRINT " 3. LIST THE NOTES ♦ " 

380 PRINT 

390 PRINT "TYPE IN A NUMBER" J 
100 PRINT tREM INPUT IN MAIN LOOP 
110 RETURN 
500 REM x 

510 REM x INPUT VALUES FOR NOTES 

520 REM x 

530 print " type in numbers between 0" 
510 print " and 255 to be the notes" 
550 print " of a tune* type one note" 
560 print " per ?. when you are finished," 
570 print " type a -1 for the . last note." 
sco input pitch 

590 if pitch>255 or pitch<-1 then 580 
60 0 rem x minus one is a flag for the end of the data 
ilo if pitch=-1 then numnotes=xnote j return 
£>20 xnote=xnote+i:rem notes counter 
50 tune(xnote)=pitch 

,0 GOTO 580 
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ARRAYS 
CAMPER COPY CONTINUED 



700 
710 
720 



REM x 
REM * 
REM x 



PLAY TUNE 



' 730 FOR XNOTE=l TO NUMNOTES 

710 SOUND 0,TUNE<XNOTE> ,10,10 

-750 FOR DELAY=1 TO 10 {NEXT DELAY 

76.0 NEXT XNOTE 

? 770 SOUND 0,0,0,0 

■ '780 RETURN 

90 0 REM « 

910 REM x LIST NOTES 

920 REM x 

930 FOR XNOTE=l TO NUMNOTES 

910 PRINT "TUNE ( " » XNOTE " f TUNE (XNOTE) 

950 NEXT XNOTE 

960 RETURN 
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A Rl R A Y S 
CAMPER COPY CONTINUED 



TUNE 



100 REM x TUNE ARRAY 

110 REM x 

120 DIM PITCH<50),DISTORT<50>,LOUD<50>,TIME<50> 
130 init=soo:rem INITIALIZATION LINE* 
140 PLAY»300:REM PLAY TUNE ROUTINE 
150 MAXNOTES=ll 
20.0 REM - x 

210 REM xxxxx MAIN LOOP xxxxx 

220 REM x 

230 GOSUB INIT 

240 ST ART=i: FINISH'S J GOSUB PLAY 
250 START=6: FINISH=li: GOSUB PLAY 
260 START=1.FINISH=4. GOSUB PLAY 
270 END 
3M REM 

3f^ REM xxxxx PLAY xxxxx 
320 REM x 

330 REM x PLAYS A SEQUENCE OF NOTES USING DATA ARRAYS* 
340 REM x INDICES DETERMINED BY VALUES OF START AND 
350 REM x FINISH IN MAIN LOOP 
360 REM x 

370 FOR XNOTE-START TO FINISH 

380 SOUND 0, PITCH (XNOTE), DISTORT (XNOTE), LOUD (XNOTE) 
390 FOR DELAY-1 TO TIME ( XNOTE ) ♦ NEXT DELAY 
400 NEXT XNOTE 
410 RETURN 
420 REM x 

500 REM xxxxx INIT ARRAY xxxxx 
510 REM x 

520 FOR FILL=1 TO MAXNOTES 

5G0 READ PITCH t DISTORT, LOUD, TIME 

540 PITCH < FILL ) =PITCH : DISTORT ( FILL > -DISTORT : LOUD < FILL > =L©UD : TIME ( FILL ) =TIME 
550 NEXT FILL 
560 RETURN 

570 DATA 121,10,10,40,91,10,10,37,0,0,0,3,91,10,10,40,108,10,10,28 

580 DATA 0,0, 0,2, 108, 10, 10, 10, 91, 10, 10, 30, 108, 10, 10, 10, 121, 10, 10, 80, 0,0, 0,0 
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